home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Sharing Fun! I Know My Savior Lives / Sunday Savers: Sharing Fun! I Know My Savior Lives.iso / pc / main.dxr / 00054_tempText.ls < prev    next >
Encoding:
Text File  |  2009-10-06  |  606 b   |  25 lines
  1. on mouseDown
  2.   global lessonNumber, speed
  3.   temp = sprite(36).pointToParagraph(the mouseLoc)
  4.   member("tempText").line[temp].foreColor = 4
  5.   updateStage()
  6.   repeat while the mouseDown = 1
  7.     nothing()
  8.   end repeat
  9.   member("tempText").line[temp].foreColor = 255
  10.   lessonNumber = temp - 1
  11.   updateLesson()
  12.   sprite(36).visible = 0
  13.   updateStage()
  14.   if speed = "slow" then
  15.     sprite(35).locV = -78
  16.   else
  17.     repeat while sprite(35).locV > -78
  18.       sprite(35).locV = sprite(35).locV - 10
  19.       sprite(37).locV = sprite(37).locV - 10
  20.       updateStage()
  21.     end repeat
  22.   end if
  23.   sprite(6).visible = 1
  24. end
  25.